home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 10 / developer source - volume 10.iso / delpp / fig9-02.gif < prev    next >
Graphics Interchange Format  |  1996-11-19  |  36KB  |  640x480  |  4-bit (15 colors)
Labels: text | screenshot | display | software | multimedia software
OCR: fint Delphi 2.0 Paramtst × File Edit Search View Project Run Component Database Workgroups Tools Help Standard Additional Win95 Dialogs System Data Access Data Controls A abIl OK x A Form3 Object Inspector x X . . .. ........ Button1: TButton @ PARAMTSF.PAS X Properties Events Paramtsf Cancel |False procedure TForm3. ButtonlClick (Sender: TObject) ; Caption &Rur var Cursor crDefault x,Y: String; Default True begin DragCursor crDrag x : = Editl. Text; DragMode dmManual y : = Editl . Text; Enabled True ParamTest (x, Y) ; +Font [TFont] Memol. Lines. Clear; Height 29 Memol. Lines . Add (x) ; HelpContext 0 Memol. Lines. Add (y) ; Hint end; Left 168 ModalResult mrNone end. Name Button1 47: 1 Insert Start E: Delphi32 Wy Microsoft WWo .. it Delphi32 Exploring - 05 Writing